home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / vic helicopter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  567 b   |  23 lines
  1. 1 rem sound effects
  2. 2 rem helicopter (vic version)
  3. 10 gosub 900:goto 100
  4. 20 poke fr(0),0:poke fr(1),0:poke fr(2),0:poke fr(3),p(50)
  5. 30 poke vl,0
  6. 40 for i=0 to 15:poke vl,i:next
  7. 45 for i=0 to 2:next
  8. 50 poke fr(3),60:for i=15 to 0 step-1:poke vl,i:next
  9. 60 for i=0 to 3:poke fr(i),0:next
  10. 90 return
  11. 99 rem routine to play sounds when shift is pressed
  12. 100 print "press shift to stop"
  13. 110 print".";:if peek(653)>0 then end
  14. 120 gosub 20:goto 110
  15. 898 rem routine to set up variables
  16. 899 rem set up sound control addresses
  17. 900 dim fr(3),p(127)
  18. 910 fr(0)=36874:for i=1 to 3:fr(i)=fr(i-1)+1:next
  19. 920 for i=0 to 127:p(i)=i+128:next
  20. 929 rem set volume address
  21. 930 vl=36878
  22. 990 return
  23.